Loop_Find & Copy to word document

[snb]

Or you might use VBA:

Sub M_snb()
   With CreateObject("Word.Document")
        For j = 1 To sheets("Sheet1").Columns(1).SpecialCells(2).Count Step 8
           sheets("Sheet1").Cells(j, 1).Resize(8, 4).Copy
           .Paragraphs.last.Range.Paste
           .Content.InsertAfter String(3, vbCr)
        Next
   End With
End Sub