Macro to copy cell every 7th row (Excel2010)

I have Googled this question but have not found a simple answer.I need to copy two adjacent cells down every 7 rows in the same column.
Would do it manually but have some 4000 rows.
Thanks for any advice
Douglas