First split your data.frame.
df.split <-split(df,df$Chr)# where df is your original dataframe
#and we split on Chr
Now, write it out to separate tab-separated files
lapply(names(df.split),function(x)
write.table(file = paste0("df",x,".txt"),
df.split[[x]], sep = "\t"))