try:

Sub cus()
Dim counter As Integer
Dim i As Integer
Dim cell As Range

For Each cell In Sheets("A").Columns(5).Cells
If Len(cell) 0 Then
For i = 1 To 8
counter = counter + 1
Sheets("B").Cells(4 + counter, 1) = cell
Next i
Else
Exit Sub
End If
Next cell

End Sub