wvs <- haven::read_sav("WV5_Data_spss_v_2015_04_18.sav")

wvs.s <- wvs[wvs$V2 %in% c(36, 76, 124, 170, 380, 554, 642, 643, 792, 840), 
             c("V2", "V203", "V202",  "V204", "V205")]

write.table(wvs.s, "mplus_data.tab", quote=F, sep="\t", row.names=F, col.names=F, na=".")