Loop specific VBA code for every 15 Rows upto 5000 rows of a sheet

Hi All

Once again thanks to all for improving my knowledge. I am using following code for copy of Named ranges "header" and "Child". Now i want to loop this code for every 15 rows till say 5000 rows in a sheet.

Kindly suggest suitable method.

Regards,

Narasimharao

Dim i As Long

i = Cells(rows.Count, 1).End(xlUp).Row
Range("Header").Copy
Cells(i, 1).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False

Cells(rows.Count, "A").End(xlUp).Offset(3, 0).Select
Range("Child").Copy
Cells(i + 3, 1).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False