Дело было вечером, делать было нечего. Для произвольной длины строки:
Длина=СтрДлина(Строка);
Коэф=Цел(Длина/30);
ИсхСтр="";
Выбрать=1;
Если Длина>30 Тогда
Для Сч=1 По Коэф Цикл
ИсхСтр= ИсхСтр+((Сред(Строка,Выбрать,30))+ Символы.ПС);
Выбрать=Выбрать+30;
КонецЦикла;
ИсхСтр=ИсхСтр+ Прав(Строка,Длина%30);
Сообщить(ИсхСтр);
Иначе Сообщить (Строка);
КонецЕсли;