Thank you :)
data = {1, 2, 5, 7, 8, 4, 12, 14, 15, 16, 18, 12, 17, 12, 15}; Length[Select[data, EvenQ]] 9