Next time, don't attach a picture please. People have to recreate your scenario themselves.
Attach a workbook instead.

Sub Try()
    Dim lr As Long, i As Long
    lr = Cells(Rows.Count, 3).End(xlUp).Row
    For i = 3 To lr Step 5
        Range("K" & i).Resize(, 2) = Range("A6:B6").Value
    Next i
End Sub
I guess I am not the only one re attachment.