PageHeightCnt  : Double; // Для подсчета высоты
...
  PageHeightCnt := 0;

  try
    Excel := CreateOleObject('Excel.Application');
  except
    if not VarIsEmpty(Excel) then Excel := Unassigned;
		ShowMessage('.. ....... .......... .......... . Excel!');
		Exit;
  end;
.....
      //Проверка - не превышена ли высота страницы с учетом следующем строки(на самом деле брал из спец.функции, но здесь -     
      // упрощенно)
      HeightCell := Excel.Selection.RowHeight;//Высота следующей строки

      if (PageHeightCnt + HeightCell) > 565 then
      begin

        Excel.Selection.Delete(xlUp);//Удаляем строку - выведем ее же, но на следующем листе

        ExlWS.HPageBreaks.Add(ExlWS.Cells[iPosition+1,1]); //Разрыв страницы

        ........
         
        PageHeightCnt := 0;

      end;

      //Выводим строку и наращиваем счетчик
      ....
      PageHeightCnt := PageHeightCnt + Excel.Selection.RowHeight;

                 cell = row.createCell(iCol);
                 
                 HSSFCellStyle style = wb.createCellStyle();
                 style.setWrapText(true);
                 cell.setCellStyle(style);
                 cell.setCellValue(....);