Запросом выдергивается более 3000 строк но при проведении такого большого документа все у всех подвисает. Подскажите как разделить эти 3000 строк на несколько документов?

(0) Счетчиком.

СчЦ=0;
Пока Выборка.Следующий() Цикл
  Если СчЦ % 200 =0 Тогда
     // создавай новый документ
  КонецЕсли;
  // добавляй строку в ТЧ
  СчЦ = СчЦ+1;
КонецПока