VB Code To Extract Row Content

I have a workbook with 2x Worksheets "Data" and "Check"

On the worksheet Data I have a series of Values

Column A = Names
Column B = Cost
Column C = Dpt

I want to create a piece of VB code to extract from the list on the "Data" worksheet, only those lines where, there are 3x occurrences for a Name where Cost = zero

Eg

Data Worksheet Values

A1=JohnS
A2=SimonX
A3=JohnS
A4= JoeF
A5=JoeF
A6=JohnS

[Code]....

Result of ******* macro button with needed code would clear existing values in "Check" worksheet and show

A1=JohnS
B1=0
C1=A1
A2=SamK
B2=0
C2=X7